﻿Imports System

Namespace System.Workflow.ComponentModel.Compiler
    Public NotInheritable Class BindValidationContext
        ' Methods
        Public Sub New(ByVal targetType As Type)
            Me.New(targetType, AccessTypes.Read)
        End Sub

        Public Sub New(ByVal targetType As Type, ByVal access As AccessTypes)
            Me.access = AccessTypes.Read
            If (targetType Is Nothing) Then
                Throw New ArgumentNullException("targetType")
            End If
            Me.targetType = targetType
            Me.access = access
        End Sub


        ' Properties
        Public ReadOnly Property Access As AccessTypes
            Get
                Return Me.access
            End Get
        End Property

        Public ReadOnly Property TargetType As Type
            Get
                Return Me.targetType
            End Get
        End Property


        ' Fields
        Private access As AccessTypes
        Private targetType As Type
    End Class
End Namespace

